* Fix missing tail recursion elimination

	* lisp/emacs-lisp/comp.el (comp-tco-func): Fix tail recursion
	elimination given now functions in LIMPLE are expressed with
	the C name.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a16cf1dcc88f3c851b87744038766c668c2da2b5..81612398c7be4aeaddc6c95c29b53f1cedf36196 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2299,7 +2299,7 @@ Return the list of m-var ids nuked."
             (`((set ,l-val (direct-call ,func . ,args))
                (comment ,_comment)
                (return ,ret-val))
-             (when (and (eq func (comp-func-name comp-func))
+             (when (and (string= func (comp-func-c-name comp-func))
                         (eq l-val ret-val))
                (let ((tco-seq (comp-form-tco-call-seq args)))
                  (setf (car insns-seq) (car tco-seq)